cobol基本语法

REDEFINES      可以用不同的变量描述同一内存。      01 PART_RECODE USAGE DISPLAY         03 PART-TYPE PICTURE...         03 PART_TYPE_A.            05 PART_NUMBER PICTURE...            05 PART_COST PICTURE...         03 PART_TYPE_B REDEFINES PART_TYPE_A.            05 UPC_CODE PICTURE...         03 PART_TYPE_C REDEFINES PART_TYPE_A.            05 ISBN PICTURE...      根据PART_TYPE决定用PART_TYPE_A还是PART_TYPE_B还是PART_TYPE_C。      规则：          PART_TYPE_B和PART_TYPE_C长度不能大于PART_TYPE_A。          数据项不能有VALUE。          01层不能用REDEFINES.          PART_TYPE_B和PART_TYPE_C中不能有OCCURS.

PICTURE      定义基本项目的具体长度，格式，数据类型。可以简写成PIC.      格式字符串最多30个字符，可以包含下列字符：      A   字母A-Z,a-z,空格      B   插入空格      P   标量字符，代表字段中不显示的小数点位置      S   代数符号，实际显示取决于项目的USAGE      V   小数点位置      X   任何字符      Z   抑制前头的0并转换成空字符      0   插入0      9   数字0~9      /   插入/      ,   插入,(逗号不能作为字符串的最后一位，最后时逗号是分隔符)      .   插入.      *   抑制前头的0并转换成*      +   正值插入+，负值插入-      -   正值插入空格，负值插入-      $   插入美元号      CR 正值插入两个空格，负值插入CR      DB 正值插入两个空格，负值插入DB 例子：      03 VAR PIC AAAAA.     VAR变量长度为5个字符，不能有数字，等价于03 STATE PIC A(5)。      输入ASDFG ,显示ASDFG      03 VAR PIC XXXXX.    VAR变量长度为5个任意字符。等价于03 FILLER PIC X(5)。      输入123AS ， 显示123AS      03 VAR PIC 99/XXX/9999 长度11，输入05may2004,显示05/may/2004      03 VAR PIC 0ABXXX/9999 长度11，输入05may2004,显示05 may/2004      03 VAR PIC 9(3) 长度3，0~999之间。      03 VAR PIC 9(4)V99 长度6，0.00~9999.99之间。      03 VAR PIC S9(5)V99 长度7，-99999.99~99999.99之间。      03 VAR PIC 9(6)PPP 长度6，可以是1000，2000，...,999999000。输入1234，显示1000。      03 VAR PIC PPP999 长度3，0.000001~0.000999之间。输入123，显示0.000123。      03 VAR PIC ZZZ.99，输入100.50,显示100.50;输入-51.50,显示51.50;      输入0,显示.00.      03 VAR PIC $ZZZ.ZZ-，输入100.50,显示$100.50;输入-51.50,显示$51.50-;      输入0,显示      03 VAR PIC $***,***.99CR，输入1000,显示$**1000.00;输入-1000,显示$**1000.00CR;      输入0,显示$***,***.00;输入51.5,显示$***,*51.50      03 VAR PIC $$$,$$$.99，输入100.50,显示$100.50;